home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Guinness Encyclopedia
/
The Guinness Encyclopedia - Wayzata Technology (3221-1B) (Disc 1) (1995).iso
/
mac
/
16in_enc.ycl
/
stack.txt
< prev
next >
Wrap
Text File
|
1995-08-14
|
7KB
|
259 lines
-- stack: in.ycl
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(0, 39, 640, 519)
-- screen: Rect(0, 0, 1024, 768)
-- card dimensions: w=640 h=480
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 5472
-- card count: 63
-- first card id: 5265
-- list block id: 35931
-- print block id: 35754
-- font table block id: 3573
-- style table block id: 3106
-- free block count: 49
-- free size: 28992 bytes
-- total size: 172032 bytes
-- stack block size: 6144 bytes
-- created by hypercard version: 0x02208000
-- compacted by hypercard version: 0x02308000
-- modified by hypercard version: 0x02208000
-- opened by hypercard version: 0x02208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0xDB6CE4E7
----- HyperTalk script -----
on resumeStack
disable menuItem "Print Text" of menu "File"
disable menuItem "Print Image" of menu "File"
enable menu "Edit"
enable menu "Go"
disable menuItem "Copy Text" of menu "Edit"
disable menuItem "Copy Image" of menu "Edit"
end resumeStack
on openCard
Send colorMe to this card
-- put the number of lines in the voices into x
-- answer x
pass openCard
unlock screen
end openCard
on doMenu menuItem
-- put menuItem
if menuItem is "Go Back" then
WTIgoback
else if menuItem is "Help" then
WTIhelp
exit doMenu
else if menuItem is "Main" then
WTImain
else if menuItem is "Gallery" then
WTIgallery
else if menuItem is "Explorer" then
WTIexplore
else if menuItem is "Credits" then
WTIcredits
else if menuItem is "Encyclopedia" then
WTIencycl
else if menuItem is "Languages" then
go to card 1 of stack "Guinness:mac:language samples" in a new window
else if menuItem is "About Hypercard..." then
WTIcredits
exit doMenu
else if menuItem is "Quit Encyclopedia" then
doMenu "Quit HyperCard"
exit doMenu
end if
pass doMenu
end doMenu
on WTIcredits
go to card 1 of stack "16in Credits"
end WTIcredits
on closeCard
global lastCard, lastBook
put "encyclopedia" into lastBook
put the number of this card into lastCard
lock screen
pass closeCard
end closeCard
on colorMe
AddColor colorCard,stamp,30
end colorMe
on openStack
set lockscreen to true
AddColor install
disable menuItem "Print Text" of menu "File"
disable menuItem "Print Image" of menu "File"
enable menu "Edit"
enable menu "Go"
disable menuItem "Copy Text" of menu "Edit"
disable menuItem "Copy Image" of menu "Edit"
pass openStack
set lockscreen to false
end openStack
on closeStack
AddColor remove
pass closeStack
end closeStack
on WTIgoButton CardN
if charToNum( CardN ) = charToNum("x") then
go to card CardN
-- go to card CardN of stack "Guinness:Mac:encyclopedia"
-- go to card 1 of stack "Guinness:Mac:encyclopedia"
else
WTIgotoPage CardN
end if
end WTIgoButton
on WTInext
go to next
end WTInext
on WTIprevious
go to previous
end WTIprevious
on WTImain
go to card 1 of stack "Guinness:Mac:16in Main"
end WTImain
on WTIhelp
go to card 1 of stack "Guinness:Mac:16in Help"
end WTIhelp
on WTIquit
doMenu "Quit HyperCard"
end WTIquit
on WTIexplore
go to card 1 of stack "Guinness:Mac:16in Explorer"
end WTIexplore
on WTIgallery
go to card 1 of stack "Guinness:Mac:16in Gallery"
end WTIgallery
on WTIencycl
go to card 1 of stack "Guinness:Mac:16in Encyclopedia"
end WTIencycl
on WTIgoback
-- global lastCard, lastBook
-- go to card lastCard of lastBook
go to recent card
end WTIgoback
on WTIgotopage CardN
-- go to card CardN
-- answer "go to card # " & CardN && "not in yet!"
-- put CharToNum(CardN) into pp
-- fix it
put trunc( ((CardN)/2) ) * 2 into pp
-- if pp -- make sure is even!!!
if pp < 10 then -- pad with 000's
--put NumToChar(pp) into x
put "p00" & pp & "-1" into ppp
else if pp < 99 then
-- put NumToChar(pp) into x
put "p0" & pp & "-1" into ppp
else
-- put NumToChar(pp) into x
put "p" & pp & "-1" into ppp
end if
-- put CardN && pp && ppp && char 2 to 6 of ppp
if last char of ppp is return then
delete last char of ppp
end if
if pp < 74 then
go to card ppp of stack "Guinness:MAC:Nature:16in Nature"
else if pp < 106 then
go to card ppp of stack "Guinness:MAC:Earth:16in Earth"
else if pp < 198 then
go to card ppp of stack "Guinness:MAC:Living:16in Living"
else if pp < 252 then
go to card ppp of stack "Guinness:MAC:Human:16in Human"
else if pp < 302 then
go to card ppp of stack "Guinness:MAC:World:16in World"
else if pp < 358 then
go to card ppp of stack "Guinness:MAC:Technology:16in Technology"
else if pp < 456 then
go to card ppp of stack "Guinness:MAC:History:16in History"
else if pp < 498 then
go to card ppp of stack "Guinness:MAC:Religion:16in Religion"
else if pp < 566 then
go to card ppp of stack "Guinness:MAC:Arts:16in Arts"
else if pp < 600 then
go to card ppp of stack "Guinness:MAC:Music:16in Music"
else if pp < 656 then
go to card ppp of stack "Guinness:MAC:Language:16in Language"
else
answer "Sorry, Countries of the World is not available here."
end if
end WTIgotopage